(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    131304,       3312]
NotebookOptionsPosition[    121273,       3142]
NotebookOutlinePosition[    121871,       3165]
CellTagsIndexPosition[    121781,       3160]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:5b9e\:9a8c\:62a5\:544a\:ff1a\:4ea4\:6d41\:7535\:6865", "Title",
 CellChangeTimes->{{3.78229211217321*^9, 3.7822922335376167`*^9}, {
  3.7822924625790014`*^9, 
  3.7822924685505257`*^9}},ExpressionUUID->"63d2e144-b88a-4cc9-b046-\
672f45c4911b"],

Cell[BoxData[
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.78234611563787*^9, 3.7823461179556723`*^9}, {
  3.7823461674112015`*^9, 3.7823461834492893`*^9}},
 CellLabel->
  "In[180]:=",ExpressionUUID->"ec18f6cd-a040-499e-a57e-41fa816e26ca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["X", "L"], "=", 
  RowBox[{"\[Omega]", " ", "L"}]}]], "Input",
 CellChangeTimes->{{3.782292671393944*^9, 3.7822926748966107`*^9}, {
  3.782298272409154*^9, 3.782298283256149*^9}, {3.7823003221497545`*^9, 
  3.782300326498122*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"dccc871c-a5a5-4641-8746-4ce0173b455d"],

Cell[BoxData[
 RowBox[{"L", " ", "\[Omega]"}]], "Output",
 CellChangeTimes->{
  3.7822925288753166`*^9, {3.782292653526764*^9, 3.7822926763208017`*^9}, {
   3.782298265523529*^9, 3.7822983012264028`*^9}, 3.7823003276770363`*^9, 
   3.7823460947741213`*^9, 3.782346223656602*^9, 3.782364859563342*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"d0f0ca12-1754-4878-9ba2-c13076f7c14a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Unprotect", "[", "C", "]"}]], "Input",
 CellChangeTimes->{{3.782300297397686*^9, 3.782300310536505*^9}},
 CellLabel->
  "In[183]:=",ExpressionUUID->"0d9b40f7-3dc1-4702-ac40-abe506cbf3af"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{{3.7823003035601616`*^9, 3.7823003119737015`*^9}, 
   3.7823462265733924`*^9},
 CellLabel->
  "Out[183]=",ExpressionUUID->"cb32c51d-c207-4824-b98b-751afa6dcbaa"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "C", "]"}]], "Input",
 CellChangeTimes->{{3.7823002892843657`*^9, 3.782300292904657*^9}},
 CellLabel->
  "In[184]:=",ExpressionUUID->"ff5db9d3-faca-43f6-8d5c-a10262157a22"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["X", "C"], "=", 
  RowBox[{"1", "/", 
   RowBox[{"(", 
    RowBox[{"\[Omega]", " ", "C"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.7822925343317575`*^9, 3.782292546486255*^9}, 
   3.782300285441656*^9},
 CellLabel->"In[4]:=",ExpressionUUID->"dc19e3d6-3411-4c97-b1fb-66a2679e1579"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{"C", " ", "\[Omega]"}]]], "Output",
 CellChangeTimes->{3.782292548304395*^9, 3.7822983042612453`*^9, 
  3.7823003176567345`*^9, 3.782346231686757*^9, 3.7823648640372725`*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"d53e2714-09e3-4d8f-828f-08307b7448e0"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"<<", "Notation`"}], "\n", 
 RowBox[{"Symbolize", "[", 
  RowBox[{"ParsedBoxWrapper", "[", 
   RowBox[{"SubscriptBox", "[", 
    RowBox[{"\"\<_\>\"", ",", "\"\<_\>\""}], "]"}], "]"}], 
  "]"}], "\n"}], "Input",
 CellChangeTimes->{{3.7822963382207894`*^9, 3.7822963382265205`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"1c165c00-4f9b-42ef-ad5c-39e443cca946"],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
   SubscriptBox["\[CapitalIota]", "1"], ",", 
   SubscriptBox["\[CapitalIota]", "2"], ",", 
   SubscriptBox["\[CapitalIota]", "3"]}], "]"}]], "Input",
 CellChangeTimes->{{3.782294647672529*^9, 3.782294693497168*^9}, {
  3.7822947716030116`*^9, 3.782294775671132*^9}, {3.782296330454268*^9, 
  3.7822963347228527`*^9}},
 CellLabel->
  "In[186]:=",ExpressionUUID->"c225f0ce-c0c7-4fed-8584-73e5191763a8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"??", 
  SubscriptBox["\[CapitalIota]", "1"]}]], "Input",
 CellChangeTimes->{{3.7822947521011887`*^9, 3.7822947866208496`*^9}},
 CellLabel->
  "In[187]:=",ExpressionUUID->"2eb5d5a0-1378-498f-9c8f-7b170a37c9b5"],

Cell[BoxData[
 SubscriptBox["\[CapitalIota]", "1"]], "Print", "PrintUsage",
 CellChangeTimes->{3.782346238344987*^9},
 CellTags->
  "Info1873782375038-1664230",ExpressionUUID->"dc0e302b-bfc6-4b93-b4f0-\
a1d2cd3ff44c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 SubscriptBox["\[CapitalIota]", "1"]], "Input",
 CellChangeTimes->{{3.7822947201081285`*^9, 3.7822947241708064`*^9}},
 CellLabel->
  "In[136]:=",ExpressionUUID->"c5342f6f-a386-4b97-9243-ccf3a3209234"],

Cell[BoxData[
 SubscriptBox["\[CapitalIota]", "1"]], "Output",
 CellChangeTimes->{3.782294725067578*^9, 3.782299154687231*^9},
 CellLabel->
  "Out[136]=",ExpressionUUID->"11e6eedb-6928-45be-8b8f-094cfb15a643"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"equ", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"I", "  ", 
        SubscriptBox["X", "L"]}], "+", 
       SubscriptBox["r", "x"]}], ")"}], 
     SubscriptBox["\[CapitalIota]", "1"]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["\[CapitalIota]", "1"], " ", "-", 
       SubscriptBox["\[CapitalIota]", "3"]}], ")"}], 
     SubscriptBox["R", "2"]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["\[CapitalIota]", "1"], "-", 
       SubscriptBox["\[CapitalIota]", "2"]}], ")"}], 
     SubscriptBox["R", "A"]}]}], "==", "0"}]}]], "Input",
 CellChangeTimes->{{3.7822925781179066`*^9, 3.7822925840919*^9}, {
  3.782292627984521*^9, 3.7822926473108387`*^9}, {3.782292696013107*^9, 
  3.78229293131789*^9}, {3.782294617225438*^9, 3.7822946275652995`*^9}, {
  3.7822971874428825`*^9, 3.782297189817526*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"0f71534a-144f-4908-b5d5-d4d509eb7e7a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SubscriptBox["R", "A"], " ", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[CapitalIota]", "1"], "-", 
      SubscriptBox["\[CapitalIota]", "2"]}], ")"}]}], "+", 
   RowBox[{
    SubscriptBox["R", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[CapitalIota]", "1"], "-", 
      SubscriptBox["\[CapitalIota]", "3"]}], ")"}]}], "+", 
   RowBox[{
    SubscriptBox["\[CapitalIota]", "1"], " ", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["r", "x"], "+", 
      RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], ")"}]}]}], 
  "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.7822928695205965`*^9, {3.782292900668124*^9, 3.782292932546237*^9}, 
   3.782294636025676*^9, 3.782294708774855*^9, 3.782296357999606*^9, {
   3.7822971906313314`*^9, 3.782297198673813*^9}, 3.7822973121811247`*^9, {
   3.7822982901247425`*^9, 3.7822983113936834`*^9}, {3.782299221108798*^9, 
   3.782299223799114*^9}, {3.782300334863744*^9, 3.7823003409145746`*^9}, 
   3.7823462423731804`*^9, 3.782364872394876*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"37f3910d-9bfa-4da5-b337-6092d7f2a884"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"equ1", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[CapitalIota]", "2"], " ", 
     SubscriptBox["R", "3"]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["\[CapitalIota]", "2"], "-", 
       SubscriptBox["\[CapitalIota]", "1"]}], ")"}], 
     SubscriptBox["R", "A"]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["\[CapitalIota]", "2"], "-", 
       SubscriptBox["\[CapitalIota]", "3"]}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["R", "0"], "-", 
       RowBox[{"I", " ", 
        SubscriptBox["X", "C"]}]}], ")"}]}]}], "\[Equal]", "0"}]}]], "Input",
 CellChangeTimes->{{3.7822931059552364`*^9, 3.7822931827338657`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"bfa6e9ce-ae50-46f9-9483-9cf50bc2907d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SubscriptBox["R", "3"], " ", 
    SubscriptBox["\[CapitalIota]", "2"]}], "+", 
   RowBox[{
    SubscriptBox["R", "A"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       SubscriptBox["\[CapitalIota]", "1"]}], "+", 
      SubscriptBox["\[CapitalIota]", "2"]}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[CapitalIota]", "2"], "-", 
      SubscriptBox["\[CapitalIota]", "3"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["R", "0"], "-", 
      FractionBox["\[ImaginaryI]", 
       RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], "\[Equal]", 
  "0"}]], "Output",
 CellChangeTimes->{3.782293183548686*^9, 3.782294710932666*^9, 
  3.7822963650138483`*^9, 3.782297314620644*^9, 3.782298314819521*^9, 
  3.782299242351489*^9, 3.7823003438686905`*^9, 3.7823462451797132`*^9, 
  3.782364875022328*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"7d47d0f2-a4c1-46d2-9850-1a83158f260f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"equ2", "=", 
  RowBox[{
   RowBox[{"U", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["\[CapitalIota]", "3"], "-", 
       SubscriptBox["\[CapitalIota]", "2"]}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["R", "0"], "-", 
       RowBox[{"I", " ", 
        SubscriptBox["X", "C"]}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["\[CapitalIota]", "3"], "-", 
       SubscriptBox["\[CapitalIota]", "1"]}], ")"}], 
     SubscriptBox["R", "2"]}]}], "\[Equal]", "0"}]}]], "Input",
 CellChangeTimes->{{3.7822932588843*^9, 3.782293284486305*^9}, {
  3.7822933172239037`*^9, 3.7822934476535287`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"5682d807-c337-40ff-8f9c-2523244cc874"],

Cell[BoxData[
 RowBox[{
  RowBox[{"U", "+", 
   RowBox[{
    SubscriptBox["R", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       SubscriptBox["\[CapitalIota]", "1"]}], "+", 
      SubscriptBox["\[CapitalIota]", "3"]}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       SubscriptBox["\[CapitalIota]", "2"]}], "+", 
      SubscriptBox["\[CapitalIota]", "3"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["R", "0"], "-", 
      FractionBox["\[ImaginaryI]", 
       RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], "\[Equal]", 
  "0"}]], "Output",
 CellChangeTimes->{3.7822934485830436`*^9, 3.782296367236903*^9, 
  3.7822973166631403`*^9, 3.7822983178185034`*^9, 3.782299259112176*^9, 
  3.7823003460967517`*^9, 3.782346247979189*^9, 3.782364877980335*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"94336ab4-e504-4408-a13c-f317e3fd500c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"equ", ",", "equ1", ",", "equ2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["\[CapitalIota]", "1"], ",", 
     SubscriptBox["\[CapitalIota]", "2"], ",", 
     SubscriptBox["\[CapitalIota]", "3"]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7822935423483143`*^9, 3.7822935458195443`*^9}, {
   3.782293599320244*^9, 3.7822936398285437`*^9}, 3.782297629881417*^9, 
   3.7822983266269865`*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"864a2fa1-37fb-4495-b9c3-313e662f5789"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[CapitalIota]", "1"], "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SubscriptBox["R", "2"], " ", "U", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SubscriptBox["R", "2"]}], " ", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["R", "0"], "+", 
             SubscriptBox["R", "3"], "+", 
             SubscriptBox["R", "A"], "-", 
             FractionBox["\[ImaginaryI]", 
              RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "+", 
          RowBox[{
           SubscriptBox["R", "A"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SubscriptBox["R", "0"]}], "+", 
             FractionBox["\[ImaginaryI]", 
              RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}]}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              SubscriptBox["R", "2"]}], " ", 
             RowBox[{"(", 
              RowBox[{
               SubscriptBox["R", "0"], "+", 
               SubscriptBox["R", "3"], "+", 
               SubscriptBox["R", "A"], "-", 
               FractionBox["\[ImaginaryI]", 
                RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "+", 
            RowBox[{
             SubscriptBox["R", "A"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                SubscriptBox["R", "0"]}], "+", 
               FractionBox["\[ImaginaryI]", 
                RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}]}], " ", 
         RowBox[{"(", 
          RowBox[{
           SubsuperscriptBox["R", "2", "2"], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SubscriptBox["R", "0"], "+", 
              SubscriptBox["R", "2"], "-", 
              FractionBox["\[ImaginaryI]", 
               RowBox[{"C", " ", "\[Omega]"}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              SubscriptBox["R", "2"], "+", 
              SubscriptBox["R", "A"], "+", 
              SubscriptBox["r", "x"], "+", 
              RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], 
             ")"}]}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["R", "A"], " ", 
            RowBox[{"(", 
             RowBox[{
              SubscriptBox["R", "0"], "+", 
              SubscriptBox["R", "2"], "-", 
              FractionBox["\[ImaginaryI]", 
               RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "-", 
           RowBox[{
            SubscriptBox["R", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SubscriptBox["R", "0"]}], "+", 
              FractionBox["\[ImaginaryI]", 
               RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["R", "2"], " ", 
            SubscriptBox["R", "A"]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SubscriptBox["R", "0"]}], "+", 
              FractionBox["\[ImaginaryI]", 
               RowBox[{"C", " ", "\[Omega]"}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              SubscriptBox["R", "2"], "+", 
              SubscriptBox["R", "A"], "+", 
              SubscriptBox["r", "x"], "+", 
              RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], 
             ")"}]}]}], ")"}]}]}]]}]}], ",", 
    RowBox[{
     SubscriptBox["\[CapitalIota]", "2"], "\[Rule]", 
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"U", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SubscriptBox["R", "2"]}], "-", 
            SubscriptBox["R", "A"], "-", 
            SubscriptBox["r", "x"], "-", 
            RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "0"], " ", 
             SubscriptBox["R", "2"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "0"], " ", 
             SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "2"], " ", 
             SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "0"], " ", 
             SubscriptBox["r", "x"], " ", "\[Omega]"}], "+", 
            RowBox[{"C", " ", "L", " ", 
             SubscriptBox["R", "0"], " ", 
             SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SubscriptBox["R", "2"]}], " ", 
           SubscriptBox["R", "3"]}], "-", 
          RowBox[{
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["R", "A"]}], "-", 
          RowBox[{
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["r", "x"]}], "-", 
          RowBox[{
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["r", "x"]}], "-", 
          RowBox[{
           SubscriptBox["R", "A"], " ", 
           SubscriptBox["r", "x"]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", 
           SubscriptBox["R", "2"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", 
           SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", 
           SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "A"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "A"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "2"], " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "3"], " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "3"], " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "A"], " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "A"], " ", 
           SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}]}]}], ",", 
    RowBox[{
     SubscriptBox["\[CapitalIota]", "3"], "\[Rule]", 
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"U", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SubscriptBox["R", "2"]}], "-", 
            SubscriptBox["R", "A"], "-", 
            SubscriptBox["r", "x"], "-", 
            RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "0"], " ", 
             SubscriptBox["R", "2"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "2"], " ", 
             SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "0"], " ", 
             SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "2"], " ", 
             SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "3"], " ", 
             SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "0"], " ", 
             SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "3"], " ", 
             SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "A"], " ", 
             SubscriptBox["r", "x"], " ", "\[Omega]"}], "+", 
            RowBox[{"C", " ", "L", " ", 
             SubscriptBox["R", "0"], " ", 
             SuperscriptBox["\[Omega]", "2"]}], "+", 
            RowBox[{"C", " ", "L", " ", 
             SubscriptBox["R", "3"], " ", 
             SuperscriptBox["\[Omega]", "2"]}], "+", 
            RowBox[{"C", " ", "L", " ", 
             SubscriptBox["R", "A"], " ", 
             SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SubscriptBox["R", "2"]}], " ", 
           SubscriptBox["R", "3"]}], "-", 
          RowBox[{
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["R", "A"]}], "-", 
          RowBox[{
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["r", "x"]}], "-", 
          RowBox[{
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["r", "x"]}], "-", 
          RowBox[{
           SubscriptBox["R", "A"], " ", 
           SubscriptBox["r", "x"]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", 
           SubscriptBox["R", "2"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", 
           SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", 
           SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "A"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "A"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "2"], " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "3"], " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "3"], " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "A"], " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "A"], " ", 
           SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.7823648813135557`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"98ce8982-7820-4ce5-8054-e0d00ad09d5a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ResourceFunction", "[", "\"\<MaTeXInstall\>\"", "]"}], "[", 
  "]"}]], "Input",
 CellChangeTimes->{{3.782430825551214*^9, 3.782430825559192*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"c45c6fe6-14a4-4e47-aeab-268e6fb94f54"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "Paclet", "[", "\<\"MaTeX\"\>", ",", "\<\"1.7.5\"\>", ",", "<>", "]"}],
  PacletManager`Paclet[
  "Name" -> "MaTeX", "Version" -> "1.7.5", "MathematicaVersion" -> "10.0+", 
   "Description" -> "Create LaTeX-typeset labels within Mathematica.", 
   "Creator" -> "Szabolcs Horv\[AAcute]t <szhorvat@gmail.com>", "URL" -> 
   "http://szhorvat.net/mathematica/MaTeX", "Thumbnail" -> "Logo.png", 
   "Extensions" -> {{
     "Documentation", "Language" -> All, "MainPage" -> "Guides/MaTeX"}, {
     "Kernel", "Root" -> ".", "Context" -> "MaTeX`"}}, "Location" -> 
   "C:\\Users\\QQ\\AppData\\Roaming\\Mathematica\\Paclets\\Repository\\MaTeX-\
1.7.5"]]], "Output",
 CellChangeTimes->{3.7824308632582893`*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"3e287c49-3fb6-4d1c-be70-82eeb7286bb7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[CapitalIota]", "1"], "=", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SubscriptBox["R", "2"], " ", "U", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SubscriptBox["R", "2"]}], " ", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["R", "0"], "+", 
             SubscriptBox["R", "3"], "+", 
             SubscriptBox["R", "A"], "-", 
             FractionBox["\[ImaginaryI]", 
              RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "+", 
          RowBox[{
           SubscriptBox["R", "A"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SubscriptBox["R", "0"]}], "+", 
             FractionBox["\[ImaginaryI]", 
              RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}]}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              SubscriptBox["R", "2"]}], " ", 
             RowBox[{"(", 
              RowBox[{
               SubscriptBox["R", "0"], "+", 
               SubscriptBox["R", "3"], "+", 
               SubscriptBox["R", "A"], "-", 
               FractionBox["\[ImaginaryI]", 
                RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "+", 
            RowBox[{
             SubscriptBox["R", "A"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                SubscriptBox["R", "0"]}], "+", 
               FractionBox["\[ImaginaryI]", 
                RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}]}], " ", 
         RowBox[{"(", 
          RowBox[{
           SubsuperscriptBox["R", "2", "2"], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SubscriptBox["R", "0"], "+", 
              SubscriptBox["R", "2"], "-", 
              FractionBox["\[ImaginaryI]", 
               RowBox[{"C", " ", "\[Omega]"}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              SubscriptBox["R", "2"], "+", 
              SubscriptBox["R", "A"], "+", 
              SubscriptBox["r", "x"], "+", 
              RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], 
             ")"}]}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["R", "A"], " ", 
            RowBox[{"(", 
             RowBox[{
              SubscriptBox["R", "0"], "+", 
              SubscriptBox["R", "2"], "-", 
              FractionBox["\[ImaginaryI]", 
               RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "-", 
           RowBox[{
            SubscriptBox["R", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SubscriptBox["R", "0"]}], "+", 
              FractionBox["\[ImaginaryI]", 
               RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["R", "2"], " ", 
            SubscriptBox["R", "A"]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SubscriptBox["R", "0"]}], "+", 
              FractionBox["\[ImaginaryI]", 
               RowBox[{"C", " ", "\[Omega]"}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              SubscriptBox["R", "2"], "+", 
              SubscriptBox["R", "A"], "+", 
              SubscriptBox["r", "x"], "+", 
              RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], 
             ")"}]}]}], ")"}]}]}]]}]}], ",", 
    RowBox[{
     SubscriptBox["\[CapitalIota]", "2"], "=", 
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"U", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SubscriptBox["R", "2"]}], "-", 
            SubscriptBox["R", "A"], "-", 
            SubscriptBox["r", "x"], "-", 
            RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "0"], " ", 
             SubscriptBox["R", "2"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "0"], " ", 
             SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "2"], " ", 
             SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "0"], " ", 
             SubscriptBox["r", "x"], " ", "\[Omega]"}], "+", 
            RowBox[{"C", " ", "L", " ", 
             SubscriptBox["R", "0"], " ", 
             SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SubscriptBox["R", "2"]}], " ", 
           SubscriptBox["R", "3"]}], "-", 
          RowBox[{
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["R", "A"]}], "-", 
          RowBox[{
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["r", "x"]}], "-", 
          RowBox[{
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["r", "x"]}], "-", 
          RowBox[{
           SubscriptBox["R", "A"], " ", 
           SubscriptBox["r", "x"]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", 
           SubscriptBox["R", "2"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", 
           SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", 
           SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "A"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "A"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "2"], " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "3"], " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "3"], " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "A"], " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "A"], " ", 
           SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}]}]}], ",", 
    RowBox[{
     SubscriptBox["\[CapitalIota]", "3"], "=", 
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"U", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SubscriptBox["R", "2"]}], "-", 
            SubscriptBox["R", "A"], "-", 
            SubscriptBox["r", "x"], "-", 
            RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "0"], " ", 
             SubscriptBox["R", "2"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "2"], " ", 
             SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "0"], " ", 
             SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "2"], " ", 
             SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "3"], " ", 
             SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "0"], " ", 
             SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "3"], " ", 
             SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "C", " ", 
             SubscriptBox["R", "A"], " ", 
             SubscriptBox["r", "x"], " ", "\[Omega]"}], "+", 
            RowBox[{"C", " ", "L", " ", 
             SubscriptBox["R", "0"], " ", 
             SuperscriptBox["\[Omega]", "2"]}], "+", 
            RowBox[{"C", " ", "L", " ", 
             SubscriptBox["R", "3"], " ", 
             SuperscriptBox["\[Omega]", "2"]}], "+", 
            RowBox[{"C", " ", "L", " ", 
             SubscriptBox["R", "A"], " ", 
             SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SubscriptBox["R", "2"]}], " ", 
           SubscriptBox["R", "3"]}], "-", 
          RowBox[{
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["R", "A"]}], "-", 
          RowBox[{
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["r", "x"]}], "-", 
          RowBox[{
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["r", "x"]}], "-", 
          RowBox[{
           SubscriptBox["R", "A"], " ", 
           SubscriptBox["r", "x"]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", 
           SubscriptBox["R", "2"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", 
           SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", 
           SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "3"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "A"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "C", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "A"], " ", 
           SubscriptBox["r", "x"], " ", "\[Omega]"}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "2"], " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "3"], " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "3"], " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "0"], " ", 
           SubscriptBox["R", "A"], " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", 
           SubscriptBox["R", "2"], " ", 
           SubscriptBox["R", "A"], " ", 
           SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}], 
  "}"}]], "Input",
 CellChangeTimes->{{3.782346254046506*^9, 3.78234626025939*^9}, {
  3.782429162135516*^9, 
  3.7824291645011897`*^9}},ExpressionUUID->"179c749d-2c51-4270-a306-\
ad7b6c186ce3"],

Cell[BoxData[
 RowBox[{"MaTeX", "[", 
  "\"\<\!\(\*SubscriptBox[\(\[CapitalIota]\), \
\(1\)]\)=-\!\(\*FractionBox[\(\*SubscriptBox[\(R\), \(2\)]\\\ U\\\ \
\((\(-\*SubscriptBox[\(R\), \(2\)]\)\\\ \((\*SubscriptBox[\(R\), \(0\)] + \
\*SubscriptBox[\(R\), \(3\)] + \*SubscriptBox[\(R\), \(A\)] - \
\*FractionBox[\(\[ImaginaryI]\), \(C\\\ \[Omega]\)])\) + \
\*SubscriptBox[\(R\), \(A\)]\\\ \((\(-\*SubscriptBox[\(R\), \(0\)]\) + \
\*FractionBox[\(\[ImaginaryI]\), \(C\\\ \[Omega]\)])\))\)\), \
\(\(-\((\(-\*SubscriptBox[\(R\), \(2\)]\)\\\ \((\*SubscriptBox[\(R\), \(0\)] \
+ \*SubscriptBox[\(R\), \(3\)] + \*SubscriptBox[\(R\), \(A\)] - \
\*FractionBox[\(\[ImaginaryI]\), \(C\\\ \[Omega]\)])\) + \
\*SubscriptBox[\(R\), \(A\)]\\\ \((\(-\*SubscriptBox[\(R\), \(0\)]\) + \
\*FractionBox[\(\[ImaginaryI]\), \(C\\\ \[Omega]\)])\))\)\)\\\ \
\((\*SubsuperscriptBox[\(R\), \(2\), \(2\)] - \((\*SubscriptBox[\(R\), \(0\)] \
+ \*SubscriptBox[\(R\), \(2\)] - \*FractionBox[\(\[ImaginaryI]\), \(C\\\ \
\[Omega]\)])\)\\\ \((\*SubscriptBox[\(R\), \(2\)] + \*SubscriptBox[\(R\), \(A\
\)] + \*SubscriptBox[\(r\), \(x\)] + \[ImaginaryI]\\\ L\\\ \[Omega])\))\) + \
\((\*SubscriptBox[\(R\), \(A\)]\\\ \((\*SubscriptBox[\(R\), \(0\)] + \
\*SubscriptBox[\(R\), \(2\)] - \*FractionBox[\(\[ImaginaryI]\), \(C\\\ \
\[Omega]\)])\) - \*SubscriptBox[\(R\), \(2\)]\\\ \((\(-\*SubscriptBox[\(R\), \
\(0\)]\) + \*FractionBox[\(\[ImaginaryI]\), \(C\\\ \[Omega]\)])\))\)\\\ \
\((\*SubscriptBox[\(R\), \(2\)]\\\ \*SubscriptBox[\(R\), \(A\)] - \
\((\(-\*SubscriptBox[\(R\), \(0\)]\) + \*FractionBox[\(\[ImaginaryI]\), \(C\\\
\ \[Omega]\)])\)\\\ \((\*SubscriptBox[\(R\), \(2\)] + \*SubscriptBox[\(R\), \
\(A\)] + \*SubscriptBox[\(r\), \(x\)] + \[ImaginaryI]\\\ L\\\ \
\[Omega])\))\)\)]\)\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.7824336741422105`*^9, 3.7824336844855504`*^9}, {
  3.782433959610645*^9, 3.782433967157463*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"fc0433fc-583e-404b-abe5-dd3cd3ee478a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MaTeX", "[", "\"\<a/b\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.7824344606150527`*^9, 3.7824344878840933`*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"cbda7c41-7bd2-4da8-95e2-389bab90cb7d"],

Cell[BoxData[
 GraphicsBox[
  {Thickness[0.05271481286241434], 
   FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
      3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
     3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
      3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
     3}}}, {CompressedData["
1:eJxTTMoPSmViYGAQB2IQPRMEIoUc/oPAfSmHaNUImXMyQg49Ed3+jAIIvvua
o8sZfkg6PHCNd5xVKOjQB5aXdEhPAwEBB7A5O8UdZoAZPA5nQGCNqINdiWPt
aRkOOP8G722xVDMWOH/JreWPDZmZoOaKw/khby9/nOEoBedD3CfjsM1rg8Wc
nywOytceBTPIKDpofFJ5OeskG5Sv5NAiXsuaycblIBAbcN/ouLIDAwg08Dn8
fPv6gOViFah/BOH8g937mkycReB8sL0PRRzWCunwpa9TgvPLD29znVmLyY8C
mbdHBBI+GkqQcNkgAncPevgCAItGpeY=
     "], CompressedData["
1:eJxTTMoPSmViYGDQB2IQ/R8E5KUdRConlZxlkXGA8UPeXv44w1HGoT+i25/x
g5SDgTEQFMs4pKQBwTIE333N0eUMFgj++TNAoCPl0KrArnrGRMbhTVtut9Fv
SYf1Qjp86XXSDsIge1wkHeR3LdiXuk7CIVo1QuZcjIQDSNuZNaIOO4KtIv6n
i8H5GSD72EThfDD9RsSh5v6PW8avxeD8tSDz74nD+WB3/ZBweOAa7zhLUBQi
XyfpwAACDaIO02cCQaS0gwnY3WIOc0D8n3JQ/0hAwoFfGeLeJRIOKtceBTO8
QfCl5sVpnhZQgfPTwEDFYR3IHjkJh4bfVgXnVqhA/SMO54PD9aEonA9zD8gZ
xpeVoepFHVwmNAuldSlD1YtA1GuoQNw3Q9hhSntr1GUZVUj4yQjC+RD/sMP5
T/xeJvyd/92+08ZzV9oiRTgfFj8wfgzInBpxh5ngcGGE0DtFHAKeeF4yvcwO
5/uC+MK8cD7YvccFIP4/JgZ1jxDUHAmoe4UcdoLUtYs6tIHsvSIC13+we1+T
ibMYnA+Or43icP6XfR+3pl+TgKSnKaJQeUlIPPuIO7SDxEukHKrB6UECnn7B
4XBZ2gE9fQMANJtIPw==
     "]}], 
   FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1,
     3, 3}, {0, 1, 0}, {0, 1, 0}}}, {{{12.285899999999998`, 
    14.014099999999997`}, {12.285899999999998`, 14.156299999999996`}, {
    12.165599999999998`, 14.240599999999999`}, {12.0703, 
    14.240599999999999`}, {12.010899999999998`, 14.240599999999999`}, {
    11.9047, 14.240599999999999`}, {11.8078, 13.978099999999998`}, {
    7.815629999999998, 2.7609399999999997`}, {7.743750000000002, 2.54688}, {
    7.743750000000002, 2.4031300000000004`}, {7.862499999999997, 
    2.3203099999999997`}, {7.9578099999999985`, 2.3203099999999997`}, {
    8.02969, 2.3203099999999997`}, {8.137499999999998, 2.3312500000000003`}, {
    8.22031, 2.5828100000000003`}, {12.2141, 13.799999999999997`}, {
    12.285899999999998`, 14.014099999999997`}}}], 
   FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0,
      1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 
     0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {
     1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQBGIQHSG+/SLDOUOHcE6xduN4RQcYf8W3lxVnJig7PElc
eM1E39BhSntr1GUZVYct5j8OpXgZwPn1LEf7DcP14fyU2DtuzBZ6DrqK8l9y
xFQc/C9OjPl3WNfhDAjMUXYwtdkbNK1RH8Lv0XKYs0h55592fQd9rZXCF5Zo
OYj2eL1imaLvkBASpL7gJIIPVvccwW/h9V8/RVXbYeoE/iozb9z881fD3uj/
1nVITwMCNm0HE2MgmKzr8ADsUW2oe3UdMvI/tJ78ogXx3ykdBxbOLvnkd1pQ
eR0HialXODMeaUHczaPjsEEvbzHjHQQfrD4PwZeZF6d52kAL4g9PBN99f62s
RTuCf/yw09rMfboY/JpPGwKyf2nC+eDw3YPgB9ySrkmcpOmwVvVJ87xeXQcz
ULg+1ID4o0QXEk4lGlB360DcoakGtUfbIUY1QubcHjmIOULaDhX3f9wy7paF
89+05XYb7ZaB88HqZRB8BhBwEIf6W8dhJgjsFIGHN4zfH1yiMj3eAM6HpS9w
PFyWdkBPfwCASQkg
     "], CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7X2C3XZ2qoGD+ieVl7M6pRxmgoCkgcOXfR+3pn8T
d6j5tCEgW0rf4QwIrBF1MLXZGzSNUQ/OP37YaW2mnS6cX/vbquBcho7DA9d4
x1kXxeB8mPkwfoxqhMw5GRmI+VU6DiKVk0rOsshC5F/oOJQf3uY6U1fBISP/
Q+vJEl0HYxAIVnJ4ECG+/WKDrsNtTdk1/5uVHOJDgtQXvNRz+Pn29QHLxSoO
/hcnxvxzNoDzt5j/OJRyCsH/DLRuFruhQ0YaEExThvM/LFqvcDZCCc6/AzLf
WNFh+QsPvf8bDeDuQw8vAP2LlJA=
     "]}]},
  AspectRatio->Automatic,
  BaselinePosition->Scaled[0.32439307852814453`],
  ImageSize->{18.967551681195516`, 16.338709838107096`},
  PlotRange->{{0., 18.97}, {0., 16.34}}]], "Output",
 CellChangeTimes->{
  3.7824336861351395`*^9, 3.7824338581689863`*^9, 3.782433969514188*^9, {
   3.782434475200012*^9, 3.7824344899745026`*^9}},
 CellLabel->"Out[39]=",ExpressionUUID->"2b47bdc4-d4d1-40ed-9455-8e8eea3f40e7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"<<", "MaTeX`"}]], "Input",
 CellChangeTimes->{{3.782430933314412*^9, 3.7824309333214283`*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"9f992768-6c73-4a00-94b3-3d1b5d16c928"],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{{3.7824309624251404`*^9, 3.782430974016651*^9}},
 EmphasizeSyntaxErrors->
  True,ExpressionUUID->"2e69b165-fc7b-4889-9617-30f6223e5129"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[CapitalIota]", "1"], "-", 
  SubscriptBox["\[CapitalIota]", "2"]}]], "Input",
 CellChangeTimes->{{3.7823896067894115`*^9, 3.782389675300206*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"89302117-ccba-4d5b-9b93-bbd03605d92e"],

Cell[CellGroupData[{

Cell["\:51fa\:9519\:7684\:8868\:8fbe\:5f0f", "Section",
 CellChangeTimes->{{3.7824351005918865`*^9, 3.7824351076759424`*^9}, {
  3.7824352374014597`*^9, 
  3.782435244920353*^9}},ExpressionUUID->"0cf4df76-ec6c-4e35-ab0d-\
8c17f6cf7ce3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXForm", "[", 
  RowBox[{"HoldForm", "[", 
   RowBox[{
    SubscriptBox["\[CapitalIota]", "3"], "=", 
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"U", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SubscriptBox["R", "2"]}], "-", 
           SubscriptBox["R", "A"], "-", 
           SubscriptBox["r", "x"], "-", 
           RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "C", " ", 
            SubscriptBox["R", "0"], " ", 
            SubscriptBox["R", "2"], " ", "\[Omega]"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "C", " ", 
            SubscriptBox["R", "2"], " ", 
            SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "C", " ", 
            SubscriptBox["R", "0"], " ", 
            SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "C", " ", 
            SubscriptBox["R", "2"], " ", 
            SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "C", " ", 
            SubscriptBox["R", "3"], " ", 
            SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "C", " ", 
            SubscriptBox["R", "0"], " ", "\n", 
            SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "C", " ", 
            SubscriptBox["R", "3"], " ", 
            SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "C", " ", 
            SubscriptBox["R", "A"], " ", 
            SubscriptBox["r", "x"], " ", "\[Omega]"}], "+", 
           RowBox[{"C", " ", "L", " ", 
            SubscriptBox["R", "0"], " ", 
            SuperscriptBox["\[Omega]", "2"]}], "+", 
           RowBox[{"C", " ", "L", " ", 
            SubscriptBox["R", "3"], " ", 
            SuperscriptBox["\[Omega]", "2"]}], "+", 
           RowBox[{"C", " ", "L", " ", 
            SubscriptBox["R", "A"], " ", 
            SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubscriptBox["R", "2"]}], " ", 
          SubscriptBox["R", "3"]}], "-", 
         RowBox[{
          SubscriptBox["R", "3"], " ", 
          SubscriptBox["R", "A"]}], "-", 
         RowBox[{
          SubscriptBox["R", "2"], " ", 
          SubscriptBox["r", "x"]}], "-", 
         RowBox[{
          SubscriptBox["R", "3"], " ", 
          SubscriptBox["r", "x"]}], "-", 
         RowBox[{
          SubscriptBox["R", "A"], " ", 
          SubscriptBox["r", "x"]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "L", " ", 
          SubscriptBox["R", "2"], " ", "\[Omega]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "L", " ", 
          SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "C", " ", 
          SubscriptBox["R", "0"], " ", 
          SubscriptBox["R", "2"], " ", 
          SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "L", " ", 
          SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "C", " ", 
          SubscriptBox["R", "0"], " ", 
          SubscriptBox["R", "3"], " ", 
          SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "C", " ", 
          SubscriptBox["R", "2"], " ", 
          SubscriptBox["R", "3"], " ", 
          SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "C", " ", 
          SubscriptBox["R", "0"], " ", 
          SubscriptBox["R", "2"], " ", 
          SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "C", " ", 
          SubscriptBox["R", "0"], " ", 
          SubscriptBox["R", "3"], " ", 
          SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "C", " ", 
          SubscriptBox["R", "2"], " ", 
          SubscriptBox["R", "3"], " ", 
          SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "C", " ", 
          SubscriptBox["R", "0"], " ", 
          SubscriptBox["R", "A"], " ", 
          SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "C", " ", 
          SubscriptBox["R", "2"], " ", 
          SubscriptBox["R", "A"], " ", 
          SubscriptBox["r", "x"], " ", "\[Omega]"}], "+", 
         RowBox[{"C", " ", "L", " ", 
          SubscriptBox["R", "0"], " ", 
          SubscriptBox["R", "2"], " ", 
          SuperscriptBox["\[Omega]", "2"]}], "+", 
         RowBox[{"C", " ", "L", " ", 
          SubscriptBox["R", "0"], " ", 
          SubscriptBox["R", "3"], " ", 
          SuperscriptBox["\[Omega]", "2"]}], "+", 
         RowBox[{"C", " ", "L", " ", 
          SubscriptBox["R", "2"], " ", 
          SubscriptBox["R", "3"], " ", 
          SuperscriptBox["\[Omega]", "2"]}], "+", 
         RowBox[{"C", " ", "L", " ", 
          SubscriptBox["R", "0"], " ", 
          SubscriptBox["R", "A"], " ", 
          SuperscriptBox["\[Omega]", "2"]}], "+", 
         RowBox[{"C", " ", "L", " ", 
          SubscriptBox["R", "2"], " ", 
          SubscriptBox["R", "A"], " ", 
          SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}]}]}], "]"}], 
  "]"}]], "Text", "Input",
 CellChangeTimes->{{3.78238968504913*^9, 3.7823897252243505`*^9}, 
   3.7824299660336204`*^9, 3.782435156615532*^9},
 CellLabel->"In[42]:=",ExpressionUUID->"906aa348-894a-4cc2-b4f8-c3dd85d58b3f"],

Cell["\<\
\\text{I$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$3}=-\\\
frac{U
   \\left(-\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\\
UnderBracket}$2}-\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\\
UnderBracket}$A}-\\text{r$\\mathsym{
   \\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$x}-i L \\omega -i C \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$0}
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$2} \
\\omega -i C \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$2}
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$3} \
\\omega -i C \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$0}
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$A} \
\\omega -i C \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$2}
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$A} \
\\omega -i C \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$3}
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$A} \
\\omega -i C \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$0}
   \\text{r$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$x} \
\\omega -i C \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$3}
   \\text{r$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$x} \
\\omega -i C \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$A}
   \\text{r$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$x} \
\\omega +C L \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$0} \
\\omega ^2+C
   L \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$3}\
 \\omega ^2+C L \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$A} \
\\omega
   ^2\\right)}{-\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\\
UnderBracket}$2}
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$3}-\
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$3}
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$A}-\
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$2}
   \\text{r$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$x}-\
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$3}
   \\text{r$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$x}-\
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$A}
   \\text{r$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$x}-\
i L \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$2} \
\\omega -i L
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$3} \
\\omega -i C \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$0}
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$2} \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$3} \
\\omega -i L
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$A} \
\\omega -i C \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$0}
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$3} \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$A} \
\\omega -i C
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$2} \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$3}
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$A} \
\\omega -i C \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$0}
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$2} \
\\text{r$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$x} \
\\omega -i C
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$0} \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$3}
   \\text{r$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$x} \
\\omega -i C \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$2}
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$3} \
\\text{r$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$x} \
\\omega -i C
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$0} \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$A}
   \\text{r$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$x} \
\\omega -i C \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$2}
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$A} \
\\text{r$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$x} \
\\omega +C L
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$0} \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$2} \
\\omega ^2+C L
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$0} \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$3} \
\\omega ^2+C L
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$2} \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$3} \
\\omega ^2+C L
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$0} \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$A} \
\\omega ^2+C L
   \\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$2} \
\\text{R$\\mathsym{\\UnderBracket}$Subscript$\\mathsym{\\UnderBracket}$A} \
\\omega ^2}\
\>", "Output",
 CellChangeTimes->{3.7824352105273266`*^9, 3.782435249869008*^9},
 CellLabel->
  "Out[42]//TeXForm=",ExpressionUUID->"76bc0bb5-6dfd-46d4-8a3b-4a2fa95b417b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\\", "text"}], " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"I$", "\\", "mathsym"}], " ", 
     RowBox[{"{", 
      RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
     RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
     RowBox[{"{", 
      RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$3"}], "}"}]}], " ", "=", 
  " ", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{"\\", "frac"}]}], " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"U", "\n", "             ", "\\", "left"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"\\", "text"}]}], " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"R$", "\\", "mathsym"}], " ", 
          RowBox[{"{", 
           RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
          RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
          RowBox[{"{", 
           RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$2"}], "}"}]}], " ", 
       "-", " ", 
       RowBox[{
        RowBox[{"\\", "text"}], " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"R$", "\\", "mathsym"}], " ", 
          RowBox[{"{", 
           RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
          RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
          RowBox[{"{", 
           RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$A"}], "}"}]}], " ", 
       "-", " ", 
       RowBox[{
        RowBox[{"\\", "text"}], " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"r$", "\\", "mathsym"}], " ", 
          RowBox[{"{", "\n", "                       ", 
           RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
          RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
          RowBox[{"{", 
           RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$x"}], "}"}]}], " ", 
       "-", " ", 
       RowBox[{"i", " ", 
        RowBox[{"L", " ", "\\", "omega"}]}], " ", "-", " ", 
       RowBox[{"i", " ", 
        RowBox[{"C", " ", "\\", "text"}], " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"R$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
           RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$0"}], "}"}], "\n", 
         "                   ", "\\", "text"}], " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"R$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
           RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$2"}], "}"}], " ", 
         "\\", "omega"}]}], " ", "-", " ", 
       RowBox[{"i", " ", 
        RowBox[{"C", " ", "\\", "text"}], " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"R$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
           RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$2"}], "}"}], "\n", 
         "                   ", "\\", "text"}], " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"R$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
           RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$3"}], "}"}], " ", 
         "\\", "omega"}]}], " ", "-", " ", 
       RowBox[{"i", " ", 
        RowBox[{"C", " ", "\\", "text"}], " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"R$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
           RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$0"}], "}"}], "\n", 
         "                   ", "\\", "text"}], " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"R$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
           RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$A"}], "}"}], " ", 
         "\\", "omega"}]}], " ", "-", " ", 
       RowBox[{"i", " ", 
        RowBox[{"C", " ", "\\", "text"}], " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"R$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
           RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$2"}], "}"}], "\n", 
         "                   ", "\\", "text"}], " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"R$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
           RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$A"}], "}"}], " ", 
         "\\", "omega"}]}], " ", "-", " ", 
       RowBox[{"i", " ", 
        RowBox[{"C", " ", "\\", "text"}], " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"R$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
           RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$3"}], "}"}], "\n", 
         "                   ", "\\", "text"}], " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"R$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
           RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$A"}], "}"}], " ", 
         "\\", "omega"}]}], " ", "-", " ", 
       RowBox[{"i", " ", 
        RowBox[{"C", " ", "\\", "text"}], " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"R$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
           RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$0"}], "}"}], "\n", 
         "                   ", "\\", "text"}], " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"r$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
           RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$x"}], "}"}], " ", 
         "\\", "omega"}]}], " ", "-", " ", 
       RowBox[{"i", " ", 
        RowBox[{"C", " ", "\\", "text"}], " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"R$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
           RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$3"}], "}"}], "\n", 
         "                   ", "\\", "text"}], " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"r$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
           RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$x"}], "}"}], " ", 
         "\\", "omega"}]}], " ", "-", " ", 
       RowBox[{"i", " ", 
        RowBox[{"C", " ", "\\", "text"}], " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"R$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
           RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$A"}], "}"}], "\n", 
         "                   ", "\\", "text"}], " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"r$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
           RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$x"}], "}"}], " ", 
         "\\", "omega"}]}], " ", "+", " ", 
       RowBox[{"C", " ", 
        RowBox[{"L", " ", "\\", "text"}], " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"R$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
           RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$0"}], "}"}], " ", 
         "\\", 
         RowBox[{"omega", " ", "^", "2"}]}]}], " ", "+", " ", 
       RowBox[{"C", "\n", "                 ", 
        RowBox[{"L", " ", "\\", "text"}], " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"R$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
           RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$3"}], "}"}], " ", 
         "\\", 
         RowBox[{"omega", " ", "^", "2"}]}]}], " ", "+", " ", 
       RowBox[{"C", " ", 
        RowBox[{"L", " ", "\\", "text"}], " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"R$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
           RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
           RowBox[{"{", 
            RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$A"}], "}"}], " ", 
         "\\", 
         RowBox[{"omega", "\n", "                     ", "^", "2"}]}], " ", 
        "\\r", " ", "ight"}]}], ")"}]}], "}"}], " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"\\", "text"}]}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$2"}], "}"}], "\n", 
       "               ", "\\", "text"}], " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"R$", "\\", "mathsym"}], " ", 
        RowBox[{"{", 
         RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
        RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
        RowBox[{"{", 
         RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$3"}], "}"}]}], " ", 
     "-", " ", 
     RowBox[{
      RowBox[{"\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$3"}], "}"}], "\n", 
       "               ", "\\", "text"}], " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"R$", "\\", "mathsym"}], " ", 
        RowBox[{"{", 
         RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
        RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
        RowBox[{"{", 
         RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$A"}], "}"}]}], " ", 
     "-", " ", 
     RowBox[{
      RowBox[{"\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$2"}], "}"}], "\n", 
       "               ", "\\", "text"}], " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"r$", "\\", "mathsym"}], " ", 
        RowBox[{"{", 
         RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
        RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
        RowBox[{"{", 
         RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$x"}], "}"}]}], " ", 
     "-", " ", 
     RowBox[{
      RowBox[{"\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$3"}], "}"}], "\n", 
       "               ", "\\", "text"}], " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"r$", "\\", "mathsym"}], " ", 
        RowBox[{"{", 
         RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
        RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
        RowBox[{"{", 
         RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$x"}], "}"}]}], " ", 
     "-", " ", 
     RowBox[{
      RowBox[{"\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$A"}], "}"}], "\n", 
       "               ", "\\", "text"}], " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"r$", "\\", "mathsym"}], " ", 
        RowBox[{"{", 
         RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
        RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
        RowBox[{"{", 
         RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$x"}], "}"}]}], " ", 
     "-", " ", 
     RowBox[{"i", " ", 
      RowBox[{"L", " ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$2"}], "}"}], " ", 
       "\\", "omega"}]}], " ", "-", " ", 
     RowBox[{"i", " ", 
      RowBox[{"L", "\n", "               ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$3"}], "}"}], " ", 
       "\\", "omega"}]}], " ", "-", " ", 
     RowBox[{"i", " ", 
      RowBox[{"C", " ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$0"}], "}"}], "\n", 
       "               ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$2"}], "}"}], " ", 
       "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$3"}], "}"}], " ", 
       "\\", "omega"}]}], " ", "-", " ", 
     RowBox[{"i", " ", 
      RowBox[{"L", "\n", "               ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$A"}], "}"}], " ", 
       "\\", "omega"}]}], " ", "-", " ", 
     RowBox[{"i", " ", 
      RowBox[{"C", " ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$0"}], "}"}], "\n", 
       "               ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$3"}], "}"}], " ", 
       "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$A"}], "}"}], " ", 
       "\\", "omega"}]}], " ", "-", " ", 
     RowBox[{"i", " ", 
      RowBox[{"C", "\n", "               ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$2"}], "}"}], " ", 
       "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$3"}], "}"}], "\n", 
       "               ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$A"}], "}"}], " ", 
       "\\", "omega"}]}], " ", "-", " ", 
     RowBox[{"i", " ", 
      RowBox[{"C", " ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$0"}], "}"}], "\n", 
       "               ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$2"}], "}"}], " ", 
       "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"r$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$x"}], "}"}], " ", 
       "\\", "omega"}]}], " ", "-", " ", 
     RowBox[{"i", " ", 
      RowBox[{"C", "\n", "               ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$0"}], "}"}], " ", 
       "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$3"}], "}"}], "\n", 
       "               ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"r$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$x"}], "}"}], " ", 
       "\\", "omega"}]}], " ", "-", " ", 
     RowBox[{"i", " ", 
      RowBox[{"C", " ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$2"}], "}"}], "\n", 
       "               ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$3"}], "}"}], " ", 
       "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"r$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$x"}], "}"}], " ", 
       "\\", "omega"}]}], " ", "-", " ", 
     RowBox[{"i", " ", 
      RowBox[{"C", "\n", "               ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$0"}], "}"}], " ", 
       "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$A"}], "}"}], "\n", 
       "               ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"r$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$x"}], "}"}], " ", 
       "\\", "omega"}]}], " ", "-", " ", 
     RowBox[{"i", " ", 
      RowBox[{"C", " ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$2"}], "}"}], "\n", 
       "               ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$A"}], "}"}], " ", 
       "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"r$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$x"}], "}"}], " ", 
       "\\", "omega"}]}], " ", "+", " ", 
     RowBox[{"C", " ", 
      RowBox[{"L", "\n", "               ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$0"}], "}"}], " ", 
       "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$2"}], "}"}], " ", 
       "\\", 
       RowBox[{"omega", " ", "^", "2"}]}]}], " ", "+", " ", 
     RowBox[{"C", " ", 
      RowBox[{"L", "\n", "               ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$0"}], "}"}], " ", 
       "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$3"}], "}"}], " ", 
       "\\", 
       RowBox[{"omega", " ", "^", "2"}]}]}], " ", "+", " ", 
     RowBox[{"C", " ", 
      RowBox[{"L", "\n", "               ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$2"}], "}"}], " ", 
       "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$3"}], "}"}], " ", 
       "\\", 
       RowBox[{"omega", " ", "^", "2"}]}]}], " ", "+", " ", 
     RowBox[{"C", " ", 
      RowBox[{"L", "\n", "               ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$0"}], "}"}], " ", 
       "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$A"}], "}"}], " ", 
       "\\", 
       RowBox[{"omega", " ", "^", "2"}]}]}], " ", "+", " ", 
     RowBox[{"C", " ", 
      RowBox[{"L", "\n", "               ", "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$2"}], "}"}], " ", 
       "\\", "text"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"R$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", 
         RowBox[{"$Subscript$", "\\", "mathsym"}], " ", 
         RowBox[{"{", 
          RowBox[{"\\", "UnderBracket"}], "}"}], " ", "$A"}], "}"}], " ", 
       "\\", 
       RowBox[{"omega", " ", "^", "2"}]}]}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{
  3.7824299685478973`*^9, 3.782435013803834*^9, {3.782435122035541*^9, 
   3.782435135235243*^9}, {3.7824351957059965`*^9, 3.782435200869194*^9}},
 CellLabel->
  "Out[40]//TeXForm=",ExpressionUUID->"fabe394d-886e-4e06-af29-004c65373cc0"],

Cell["", "Input",
 CellChangeTimes->{{3.78242913737571*^9, 3.782429191339798*^9}, {
  3.782429739970171*^9, 
  3.782429765492215*^9}},ExpressionUUID->"017f3003-587c-4128-9dfa-\
a98f961757ae"],

Cell["", "Input",
 CellChangeTimes->{{3.7824291064267616`*^9, 
  3.7824291809196634`*^9}},ExpressionUUID->"68f904c8-67e3-470c-bc9d-\
9be4a0cc78b1"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7824296379749355`*^9, 3.7824296925440235`*^9}, {
  3.782429729455778*^9, 3.7824297307064333`*^9}, {3.7824298398747244`*^9, 
  3.782429933081233*^9}},
 EmphasizeSyntaxErrors->
  True,ExpressionUUID->"7fab7d86-79c3-471d-a1e9-d6f7514bdf79"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7824291994475336`*^9, 3.7824293000594363`*^9}},
 EmphasizeSyntaxErrors->
  True,ExpressionUUID->"2dc46b58-e3e2-440a-a683-e0f536eefbe6"],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"L", ",", 
   SubscriptBox["R", "0"], ",", 
   SubscriptBox["R", "2"], ",", 
   SubscriptBox["R", "3"], ",", "C", ",", "U"}], "]"}]], "Input",
 CellChangeTimes->{{3.7823471839255743`*^9, 3.7823472603589554`*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"8380f6e4-0857-4dd7-83e5-800c7fc33345"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[CapitalIota]", "1"], "-", 
     SubscriptBox["\[CapitalIota]", "2"]}], "\[Equal]", "0"}], ",", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["L", "x"], ",", 
     SubscriptBox["r", "x"]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7823464284704533`*^9, 3.7823464723370457`*^9}, 
   3.78234650978167*^9, {3.782346585449356*^9, 3.7823465900330615`*^9}, {
   3.7823471682045164`*^9, 3.7823471760556192`*^9}, {3.782347271866183*^9, 
   3.782347285248397*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"0423ee66-db1b-4624-88f5-445fd0c8c355"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"U", "\[Equal]", "0"}], "&&", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        SubscriptBox["R", "2"]}], " ", 
       SubscriptBox["R", "3"]}], "-", 
      RowBox[{
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["R", "A"]}], "-", 
      RowBox[{
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["r", "x"]}], "-", 
      RowBox[{
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["r", "x"]}], "-", 
      RowBox[{
       SubscriptBox["R", "A"], " ", 
       SubscriptBox["r", "x"]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "L", " ", 
       SubscriptBox["R", "2"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "L", " ", 
       SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "L", " ", 
       SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "A"], " ", 
       SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "A"], " ", 
       SubscriptBox["r", "x"], " ", "\[Omega]"}], "+", 
      RowBox[{"C", " ", "L", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "2"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{"C", " ", "L", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "3"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{"C", " ", "L", " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "3"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{"C", " ", "L", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "A"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{"C", " ", "L", " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "A"], " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], "\[NotEqual]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], "+", 
      RowBox[{"C", " ", 
       SubscriptBox["R", "0"], " ", "\[Omega]"}]}], "\[NotEqual]", "0"}], "&&", 
    RowBox[{
     SubscriptBox["r", "x"], "\[Equal]", 
     FractionBox[
      RowBox[{"\[Omega]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "L"}], "+", 
         RowBox[{"C", " ", 
          SubscriptBox["R", "2"], " ", 
          SubscriptBox["R", "3"]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "C", " ", "L", " ", 
          SubscriptBox["R", "0"], " ", "\[Omega]"}]}], ")"}]}], 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], "+", 
       RowBox[{"C", " ", 
        SubscriptBox["R", "0"], " ", "\[Omega]"}]}]]}], "&&", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        SubscriptBox["R", "2"]}], " ", 
       SubscriptBox["R", "3"]}], "-", 
      RowBox[{
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["R", "A"]}], "-", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubsuperscriptBox["R", "2", "2"], " ", 
       SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "2"], " ", 
       SubsuperscriptBox["R", "3", "2"], " ", "\[Omega]"}], "-", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["R", "A"], " ", "\[Omega]"}], "+", 
      RowBox[{
       SuperscriptBox["C", "2"], " ", 
       SubsuperscriptBox["R", "0", "2"], " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "3"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["C", "2"], " ", 
       SubscriptBox["R", "0"], " ", 
       SubsuperscriptBox["R", "2", "2"], " ", 
       SubscriptBox["R", "3"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["C", "2"], " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "2"], " ", 
       SubsuperscriptBox["R", "3", "2"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["C", "2"], " ", 
       SubsuperscriptBox["R", "2", "2"], " ", 
       SubsuperscriptBox["R", "3", "2"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["C", "2"], " ", 
       SubsuperscriptBox["R", "0", "2"], " ", 
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["R", "A"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["C", "2"], " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["R", "A"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["C", "2"], " ", 
       SubsuperscriptBox["R", "2", "2"], " ", 
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["R", "A"], " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], "\[NotEqual]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SubscriptBox["R", "3"], "\[Equal]", "0"}], "&&", 
    RowBox[{
     RowBox[{
      SubscriptBox["R", "0"], " ", "\[Omega]"}], "\[NotEqual]", "0"}], "&&", 
    RowBox[{"C", "\[Equal]", 
     FractionBox["\[ImaginaryI]", 
      RowBox[{
       SubscriptBox["R", "0"], " ", "\[Omega]"}]]}], "&&", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "A"], " ", 
       SubscriptBox["r", "x"]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "L", " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "A"], " ", "\[Omega]"}]}], "\[NotEqual]", "0"}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{3.7823648971251802`*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"6f17d72c-a2ac-48f3-ad3b-6fce405ca682"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "\[Omega]_", "]"}], "="}]], "Input",
 CellChangeTimes->{{3.7823013501494427`*^9, 3.78230136710229*^9}, 
   3.7823463294008737`*^9},ExpressionUUID->"ccfece34-d50d-4d09-ae20-\
3f23a4f7e30f"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7823463340654078`*^9, 
  3.7823463340983505`*^9}},ExpressionUUID->"e9c7141d-d386-4558-a8ed-\
b704c733bb62"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{"f", "[", "810", "]"}], "]"}], "/", 
     RowBox[{"Abs", "[", 
      RowBox[{"f", "[", "1231", "]"}], "]"}]}], "\[Equal]", 
    RowBox[{"13", "/", "9"}]}], ",", 
   SubscriptBox["R", "A"]}], "]"}]], "Input",
 CellChangeTimes->{{3.782301390116311*^9, 3.7823014925350637`*^9}, {
  3.782301591738422*^9, 3.7823016085200615`*^9}},
 CellLabel->
  "In[177]:=",ExpressionUUID->"9a7e05c1-cc45-4624-a597-f4d8695339b7"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{{3.782301477056822*^9, 3.7823014940998774`*^9}, 
   3.782301700473694*^9},
 CellLabel->
  "Out[177]=",ExpressionUUID->"a1911639-ab50-4628-8162-86962b83aaa3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["U", "0"], "=", "1.780"}]], "Input",
 CellChangeTimes->{{3.7823011640980797`*^9, 3.7823011669155455`*^9}, {
  3.7823463551051354`*^9, 3.7823463555968213`*^9}},
 CellLabel->
  "In[194]:=",ExpressionUUID->"f03d4867-e7c4-466b-b8f7-eb4e76b0b0ac"],

Cell[BoxData["1.78`"], "Output",
 CellChangeTimes->{3.782301167663545*^9, 3.78234635680459*^9},
 CellLabel->
  "Out[194]=",ExpressionUUID->"a179ea74-ddbe-43a7-9d0d-fc7881c32a56"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.782297323052644*^9, 3.7822973299880524`*^9}, 
   3.782297619051344*^9},ExpressionUUID->"5cd951fa-4887-44b0-a1d4-\
1326d5c2c3bc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[CapitalIota]", "1"], "-", 
     SubscriptBox["\[CapitalIota]", "2"]}], "==", "0"}], ",", 
   RowBox[{"{", 
    RowBox[{"L", ",", 
     SubscriptBox["r", "x"]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7822973709206023`*^9, 3.782297399183056*^9}, {
   3.782297633976431*^9, 3.78229763489601*^9}, 3.7822984007951565`*^9, {
   3.782298445631164*^9, 3.782298502342231*^9}, {3.7822985457252445`*^9, 
   3.78229855943056*^9}, {3.7822986222864075`*^9, 3.7822986633198853`*^9}, {
   3.782298855768407*^9, 3.7822988565852757`*^9}},
 CellLabel->
  "In[215]:=",ExpressionUUID->"e9b14dbf-9151-4dad-99b0-c66e92339b98"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"U", "\[Equal]", "0"}], "&&", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        SubscriptBox["R", "2"]}], " ", 
       SubscriptBox["R", "3"]}], "-", 
      RowBox[{
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["R", "A"]}], "-", 
      RowBox[{
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["r", "x"]}], "-", 
      RowBox[{
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["r", "x"]}], "-", 
      RowBox[{
       SubscriptBox["R", "A"], " ", 
       SubscriptBox["r", "x"]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "L", " ", 
       SubscriptBox["R", "2"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "L", " ", 
       SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "L", " ", 
       SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "A"], " ", 
       SubscriptBox["r", "x"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "A"], " ", 
       SubscriptBox["r", "x"], " ", "\[Omega]"}], "+", 
      RowBox[{"C", " ", "L", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "2"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{"C", " ", "L", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "3"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{"C", " ", "L", " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "3"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{"C", " ", "L", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "A"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{"C", " ", "L", " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "A"], " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], "\[NotEqual]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], "+", 
      RowBox[{"C", " ", 
       SubscriptBox["R", "0"], " ", "\[Omega]"}]}], "\[NotEqual]", "0"}], "&&", 
    RowBox[{
     SubscriptBox["r", "x"], "\[Equal]", 
     FractionBox[
      RowBox[{"\[Omega]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "L"}], "+", 
         RowBox[{"C", " ", 
          SubscriptBox["R", "2"], " ", 
          SubscriptBox["R", "3"]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "C", " ", "L", " ", 
          SubscriptBox["R", "0"], " ", "\[Omega]"}]}], ")"}]}], 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], "+", 
       RowBox[{"C", " ", 
        SubscriptBox["R", "0"], " ", "\[Omega]"}]}]]}], "&&", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        SubscriptBox["R", "2"]}], " ", 
       SubscriptBox["R", "3"]}], "-", 
      RowBox[{
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["R", "A"]}], "-", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubsuperscriptBox["R", "2", "2"], " ", 
       SubscriptBox["R", "3"], " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "2"], " ", 
       SubsuperscriptBox["R", "3", "2"], " ", "\[Omega]"}], "-", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["R", "A"], " ", "\[Omega]"}], "-", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "C", " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["R", "A"], " ", "\[Omega]"}], "+", 
      RowBox[{
       SuperscriptBox["C", "2"], " ", 
       SubsuperscriptBox["R", "0", "2"], " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "3"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["C", "2"], " ", 
       SubscriptBox["R", "0"], " ", 
       SubsuperscriptBox["R", "2", "2"], " ", 
       SubscriptBox["R", "3"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["C", "2"], " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "2"], " ", 
       SubsuperscriptBox["R", "3", "2"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["C", "2"], " ", 
       SubsuperscriptBox["R", "2", "2"], " ", 
       SubsuperscriptBox["R", "3", "2"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["C", "2"], " ", 
       SubsuperscriptBox["R", "0", "2"], " ", 
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["R", "A"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["C", "2"], " ", 
       SubscriptBox["R", "0"], " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["R", "A"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["C", "2"], " ", 
       SubsuperscriptBox["R", "2", "2"], " ", 
       SubscriptBox["R", "3"], " ", 
       SubscriptBox["R", "A"], " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], "\[NotEqual]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SubscriptBox["R", "3"], "\[Equal]", "0"}], "&&", 
    RowBox[{
     RowBox[{
      SubscriptBox["R", "0"], " ", "\[Omega]"}], "\[NotEqual]", "0"}], "&&", 
    RowBox[{"C", "\[Equal]", 
     FractionBox["\[ImaginaryI]", 
      RowBox[{
       SubscriptBox["R", "0"], " ", "\[Omega]"}]]}], "&&", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "A"], " ", 
       SubscriptBox["r", "x"]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "L", " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "A"], " ", "\[Omega]"}]}], "\[NotEqual]", "0"}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{3.782300493220013*^9, 3.7823474611972685`*^9},
 CellLabel->
  "Out[215]=",ExpressionUUID->"367977c9-7a56-4b73-8eac-18ac7a20119c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  FractionBox[
   RowBox[{"\[Omega]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "L"}], "+", 
      RowBox[{"C", " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "3"]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", "L", " ", 
       SubscriptBox["R", "0"], " ", "\[Omega]"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], "+", 
    RowBox[{"C", " ", 
     SubscriptBox["R", "0"], " ", "\[Omega]"}]}]], "]"}]], "Input",
 CellChangeTimes->{{3.782300002049141*^9, 3.7823000085658274`*^9}, {
   3.7823000738201857`*^9, 3.7823000805207176`*^9}, 3.7823003824717026`*^9, 
   3.782364912409786*^9},
 CellLabel->"In[12]:=",ExpressionUUID->"7c0abe8c-f6f1-4d28-a677-b72e72899746"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SuperscriptBox["C", "2"], " ", 
    SubscriptBox["R", "0"], " ", 
    SubscriptBox["R", "2"], " ", 
    SubscriptBox["R", "3"], " ", 
    SuperscriptBox["\[Omega]", "2"]}], 
   RowBox[{"1", "+", 
    RowBox[{
     SuperscriptBox["C", "2"], " ", 
     SubsuperscriptBox["R", "0", "2"], " ", 
     SuperscriptBox["\[Omega]", "2"]}]}]], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"L", " ", "\[Omega]"}], 
       RowBox[{"1", "+", 
        RowBox[{
         SuperscriptBox["C", "2"], " ", 
         SubsuperscriptBox["R", "0", "2"], " ", 
         SuperscriptBox["\[Omega]", "2"]}]}]]}], "+", 
     FractionBox[
      RowBox[{"C", " ", 
       SubscriptBox["R", "2"], " ", 
       SubscriptBox["R", "3"], " ", "\[Omega]"}], 
      RowBox[{"1", "+", 
       RowBox[{
        SuperscriptBox["C", "2"], " ", 
        SubsuperscriptBox["R", "0", "2"], " ", 
        SuperscriptBox["\[Omega]", "2"]}]}]], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["C", "2"], " ", "L", " ", 
       SubsuperscriptBox["R", "0", "2"], " ", 
       SuperscriptBox["\[Omega]", "3"]}], 
      RowBox[{"1", "+", 
       RowBox[{
        SuperscriptBox["C", "2"], " ", 
        SubsuperscriptBox["R", "0", "2"], " ", 
        SuperscriptBox["\[Omega]", "2"]}]}]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.7823000812577467`*^9, 3.782300384454421*^9, 
  3.7823004967395935`*^9, 3.782364914051017*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"174601a9-1a38-4b1f-ae04-150e1ff098af"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   SubscriptBox["\[CapitalIota]", "1"], "-", 
   SubscriptBox["\[CapitalIota]", "2"]}], "]"}]], "Input",
 CellChangeTimes->{{3.7823475012498765`*^9, 3.782347518655451*^9}, {
  3.782347857658374*^9, 3.782347859684916*^9}},
 CellLabel->
  "In[228]:=",ExpressionUUID->"f8940916-d9fd-452a-a520-58b3cbcb707d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Assuming", "[", 
  RowBox[{
   RowBox[{"Element", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", "\[Omega]", ",", 
       SubscriptBox["R", "A"], ",", 
       SubscriptBox["r", "x"]}], "}"}], ",", "Reals"}], "]"}], ",", 
   RowBox[{"Simplify", "[", 
    RowBox[{"ComplexExpand", "[", 
     RowBox[{"Re", "[", 
      RowBox[{
       SubscriptBox["\[CapitalIota]", "1"], "-", 
       SubscriptBox["\[CapitalIota]", "2"]}], "]"}], "]"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.782348021621266*^9, 3.7823480261531467`*^9}, {
   3.7823481057052946`*^9, 3.7823481329411297`*^9}, {3.7823482361105776`*^9, 
   3.782348260902279*^9}, 3.7823486549369817`*^9, {3.7823487302402554`*^9, 
   3.782348732419429*^9}, {3.78234930598133*^9, 3.7823493089194727`*^9}, {
   3.782349440596513*^9, 3.7823494827732325`*^9}, {3.7823500933902717`*^9, 
   3.7823501701116867`*^9}, {3.7823502300446577`*^9, 3.782350233330927*^9}, {
   3.7823504896194696`*^9, 3.7823504918943586`*^9}, {3.782350620806596*^9, 
   3.7823506301595464`*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"62a6dcf5-a6d9-4be8-bcda-8aefc7c687b8"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.782365048823677*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"d415d771-55d3-4828-8641-201d29de4dee"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7823506560129175`*^9, 
  3.7823506560647793`*^9}},ExpressionUUID->"73d72f9e-f7b1-4dde-aa2a-\
8ba2529b13aa"],

Cell[BoxData[
 RowBox[{"??", "t"}]], "Input",
 CellChangeTimes->{{3.7823493171440244`*^9, 3.782349318234079*^9}},
 CellLabel->
  "In[250]:=",ExpressionUUID->"8ade686a-b3cd-4972-86bd-3de725ae19fb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"Assuming", "[", 
   RowBox[{
    RowBox[{"Element", "[", 
     RowBox[{"t", ",", "Reals"}], "]"}], ",", 
    RowBox[{"Re", "[", 
     RowBox[{"I", " ", "t"}], "]"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7823498846864424`*^9, 3.7823499628326683`*^9}},
 CellLabel->
  "In[260]:=",ExpressionUUID->"4c691753-a2df-4bcb-84b9-61a0e01d55ce"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{"Im", "[", "t", "]"}]}]], "Output",
 CellChangeTimes->{{3.782349891383096*^9, 3.782349912440803*^9}, 
   3.782349963408129*^9, 3.7823499946455936`*^9},
 CellLabel->
  "Out[260]=",ExpressionUUID->"7d7d3923-a303-4e3e-8f3d-533dc0847dfa"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7823487682135677`*^9, 
  3.7823487826100693`*^9}},ExpressionUUID->"1d5bea9c-1667-42f0-bca6-\
ae5562beb5d6"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.782348785782585*^9, 
  3.782348785796548*^9}},ExpressionUUID->"a7558299-cdd8-4e7d-891b-\
63c7ecee0920"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Element", "[", 
  RowBox[{"t", ",", "Reals"}], "]"}]], "Input",
 CellChangeTimes->{{3.7823487499179*^9, 3.782348764454621*^9}},
 CellLabel->
  "In[256]:=",ExpressionUUID->"7a14765a-98be-416d-ab6f-46b6cdef85fd"],

Cell[BoxData[
 RowBox[{"t", "\[Element]", 
  TemplateBox[{},
   "Reals"]}]], "Output",
 CellChangeTimes->{3.7823487651178837`*^9, 3.782349896173306*^9},
 CellLabel->
  "Out[256]=",ExpressionUUID->"e3be3052-40b8-4fb1-8cc6-7a3ff78fb571"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"\[Omega]", ",", 
   SubscriptBox["R", "A"], ",", 
   SubscriptBox["r", "x"]}], "]"}]], "Input",
 CellChangeTimes->{{3.7823486137725735`*^9, 3.7823486316133347`*^9}},
 CellLabel->
  "In[253]:=",ExpressionUUID->"bab2faab-ea39-42df-b605-3de9d3dbbea6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Omega]", "=", "810"}], ";", 
  RowBox[{
   SubscriptBox["R", "A"], "=", "10"}], ";", 
  RowBox[{
   SubscriptBox["r", "x"], "=", "0.2"}]}]], "Input",
 CellChangeTimes->{{3.7823486603659816`*^9, 3.782348691628848*^9}},
 CellLabel->
  "In[240]:=",ExpressionUUID->"701bbea7-03da-4a1e-8590-7f985e19db7a"],

Cell[CellGroupData[{

Cell[BoxData[
 SubscriptBox["r", "x"]], "Input",
 CellChangeTimes->{{3.782348703600803*^9, 3.7823487205919113`*^9}},
 CellLabel->
  "In[243]:=",ExpressionUUID->"fe88ea12-d6a9-4391-b76f-0d00b15e0a6b"],

Cell[BoxData["0.2`"], "Output",
 CellChangeTimes->{{3.7823486924346933`*^9, 3.7823487217009463`*^9}},
 CellLabel->
  "Out[243]=",ExpressionUUID->"b0ce7f7b-030e-40b7-be7c-9e9b6d470cd1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Element", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["R", "A"], ",", "\[Omega]", ",", "t"}], "}"}], ",", 
   "Reals"}], "]"}]], "Input",
 CellChangeTimes->{{3.782348069905031*^9, 3.782348081231742*^9}, {
  3.782348241366522*^9, 3.78234825137376*^9}},
 CellLabel->
  "In[235]:=",ExpressionUUID->"83e0b455-fb24-4097-af7c-2cd1f8980b36"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    SubscriptBox["R", "A"], "|", "\[Omega]", "|", "t"}], ")"}], "\[Element]", 
  TemplateBox[{},
   "Reals"]}]], "Output",
 CellChangeTimes->{3.782348026790452*^9, 3.7823480827217665`*^9, 
  3.782348253009386*^9},
 CellLabel->
  "Out[235]=",ExpressionUUID->"1dcde798-b181-45ff-95ac-ff5a7dcaf76d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"T", "=", 
  RowBox[{"2", 
   RowBox[{"Pi", "/", "\[Omega]"}]}]}]], "Input",
 CellChangeTimes->{{3.7823478795616484`*^9, 3.7823479064487467`*^9}},
 CellLabel->
  "In[229]:=",ExpressionUUID->"7c5e1a78-f60c-4f94-b80b-9af50cea4128"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", "\[Pi]"}], "\[Omega]"]], "Output",
 CellChangeTimes->{3.7823479085381584`*^9},
 CellLabel->
  "Out[229]=",ExpressionUUID->"b134c512-8baa-41b2-a7e8-3bcdcd49be54"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["R", "3"], "=", "100"}]], "Input",
 CellChangeTimes->{{3.782294073747345*^9, 3.7822941052928147`*^9}, {
  3.7823006979120483`*^9, 3.78230070237711*^9}, {3.782346381599296*^9, 
  3.7823464024654846`*^9}, {3.782347532445573*^9, 3.7823475404571505`*^9}},
 CellLabel->
  "In[220]:=",ExpressionUUID->"3fddcee2-8ab8-4fe0-b6f7-7aae1c951a8f"],

Cell[BoxData["100"], "Output",
 CellChangeTimes->{{3.7822940791756563`*^9, 3.782294106005908*^9}, 
   3.7823005960579357`*^9, 3.782300652402273*^9, {3.7823006992245283`*^9, 
   3.7823007030054154`*^9}, {3.7823463776169357`*^9, 
   3.7823464034259186`*^9}, {3.7823475287415233`*^9, 3.782347541005911*^9}},
 CellLabel->
  "Out[220]=",ExpressionUUID->"f4bed250-b5e9-405e-a24f-257de48683cb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"L", "=", 
  RowBox[{"11", "*", 
   RowBox[{"10", "^", 
    RowBox[{"-", "2"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7823007168763695`*^9, 3.7823007228792677`*^9}},
 CellLabel->
  "In[221]:=",ExpressionUUID->"7c328021-879a-4c1a-8c40-84ef24d80f30"],

Cell[BoxData[
 FractionBox["11", "100"]], "Output",
 CellChangeTimes->{3.7823007240401783`*^9, 3.7823463732257233`*^9, 
  3.7823475436176963`*^9},
 CellLabel->
  "Out[221]=",ExpressionUUID->"88fe0aa4-3183-4a35-86e2-8324e4065633"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "L", "]"}]], "Input",
 CellChangeTimes->{{3.7822941260613346`*^9, 3.7822941271254907`*^9}, {
  3.782298719457838*^9, 3.782298723789221*^9}},
 CellLabel->
  "In[130]:=",ExpressionUUID->"b5fe9c67-213f-4dc1-a4ae-44a354bffcb5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Unprotect", "[", "C", "]"}]], "Input",
 CellChangeTimes->{{3.7822941524330835`*^9, 3.7822941597644777`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"fe181b7f-0a50-44ec-963b-adb1dffe0ce4"],

Cell[BoxData[
 RowBox[{"{", "\<\"C\"\>", "}"}]], "Output",
 CellChangeTimes->{3.782294160462611*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"ede47baf-a7a7-4b32-ae22-1b91ac6b62f8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"C", "=", 
  RowBox[{"0.1", "*", 
   RowBox[{"10", "^", 
    RowBox[{"-", "6"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7822941384128327`*^9, 3.782294147847602*^9}},
 CellLabel->
  "In[226]:=",ExpressionUUID->"2f1527c2-a842-4d41-aef2-e6a868639c8e"],

Cell[BoxData["1.`*^-7"], "Output",
 CellChangeTimes->{{3.7822941488080325`*^9, 3.782294162944973*^9}, 
   3.7823006778052387`*^9, 3.782346365280961*^9, 3.782347815992222*^9},
 CellLabel->
  "Out[226]=",ExpressionUUID->"36601fea-f399-4953-a660-f677c56c56a7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"U", "=", 
  RowBox[{
   SubscriptBox["U", "0"], " ", 
   RowBox[{"E", "^", 
    RowBox[{"(", 
     RowBox[{"I", " ", "\[Omega]", " ", "t"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.782301723739999*^9, 3.782301746296673*^9}, {
  3.782347641194567*^9, 3.7823476874289565`*^9}},
 CellLabel->
  "In[223]:=",ExpressionUUID->"433af5dc-2564-48cf-983e-25e4a1ce5383"],

Cell[BoxData[
 RowBox[{"1.78`", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[Omega]"}]]}]], "Input",
 CellChangeTimes->{{3.782347696109743*^9, 
  3.782347697386916*^9}},ExpressionUUID->"468e5fd6-1a19-4ba8-a704-\
2205bea876fe"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.7823476998273897`*^9, 3.7823477062014313`*^9}},
 CellLabel->
  "In[224]:=",ExpressionUUID->"bab12d2a-168a-4e44-9b39-6017c2eb260f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"1.78`", " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"t", " ", "\[Omega]"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"0.`", "\[VeryThinSpace]", "+", 
     RowBox[{"1.78`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"t", " ", "\[Omega]"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.782347706952932*^9},
 CellLabel->
  "Out[224]=",ExpressionUUID->"c6edbdaa-f68b-4795-9e61-48a46263a156"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.782347554304123*^9, 
  3.782347559236278*^9}},ExpressionUUID->"e6419d58-5ecd-4610-822a-\
4f1fa6f2942c"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7822986891299047`*^9, 3.7822987114223213`*^9}},
 EmphasizeSyntaxErrors->
  True,ExpressionUUID->"482d1bea-3271-4ebc-87d9-f587f8346297"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7822941211624374`*^9, 
  3.7822941219243984`*^9}},ExpressionUUID->"aeb4514d-8470-4ca4-8cd7-\
9ff3cc1e3ae4"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1280, 637},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
CellContext->Notebook,
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info1873782375038-1664230"->{
  Cell[4320, 128, 217, 5, 45, "Print",ExpressionUUID->"dc0e302b-bfc6-4b93-b4f0-a1d2cd3ff44c",
   CellTags->"Info1873782375038-1664230"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info1873782375038-1664230", 121620, 3154}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 251, 4, 96, "Title",ExpressionUUID->"63d2e144-b88a-4cc9-b046-672f45c4911b"],
Cell[834, 28, 276, 5, 45, "Input",ExpressionUUID->"ec18f6cd-a040-499e-a57e-41fa816e26ca"],
Cell[CellGroupData[{
Cell[1135, 37, 347, 7, 28, "Input",ExpressionUUID->"dccc871c-a5a5-4641-8746-4ce0173b455d"],
Cell[1485, 46, 378, 6, 32, "Output",ExpressionUUID->"d0f0ca12-1754-4878-9ba2-c13076f7c14a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1900, 57, 211, 4, 45, "Input",ExpressionUUID->"0d9b40f7-3dc1-4702-ac40-abe506cbf3af"],
Cell[2114, 63, 226, 5, 32, "Output",ExpressionUUID->"cb32c51d-c207-4824-b98b-751afa6dcbaa"]
}, Open  ]],
Cell[2355, 71, 209, 4, 45, "Input",ExpressionUUID->"ff5db9d3-faca-43f6-8d5c-a10262157a22"],
Cell[CellGroupData[{
Cell[2589, 79, 322, 8, 45, "Input",ExpressionUUID->"dc19e3d6-3411-4c97-b1fb-66a2679e1579"],
Cell[2914, 89, 295, 5, 56, "Output",ExpressionUUID->"d53e2714-09e3-4d8f-828f-08307b7448e0"]
}, Open  ]],
Cell[3224, 97, 382, 8, 85, "Input",ExpressionUUID->"1c165c00-4f9b-42ef-ad5c-39e443cca946"],
Cell[3609, 107, 450, 10, 45, "Input",ExpressionUUID->"c225f0ce-c0c7-4fed-8584-73e5191763a8"],
Cell[CellGroupData[{
Cell[4084, 121, 233, 5, 28, "Input",ExpressionUUID->"2eb5d5a0-1378-498f-9c8f-7b170a37c9b5"],
Cell[4320, 128, 217, 5, 45, "Print",ExpressionUUID->"dc0e302b-bfc6-4b93-b4f0-a1d2cd3ff44c",
 CellTags->"Info1873782375038-1664230"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4574, 138, 214, 4, 28, "Input",ExpressionUUID->"c5342f6f-a386-4b97-9243-ccf3a3209234"],
Cell[4791, 144, 209, 4, 32, "Output",ExpressionUUID->"11e6eedb-6928-45be-8b8f-094cfb15a643"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5037, 153, 1007, 27, 45, "Input",ExpressionUUID->"0f71534a-144f-4908-b5d5-d4d509eb7e7a"],
Cell[6047, 182, 1160, 29, 32, "Output",ExpressionUUID->"37f3910d-9bfa-4da5-b337-6092d7f2a884"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7244, 216, 819, 24, 45, "Input",ExpressionUUID->"bfa6e9ce-ae50-46f9-9483-9cf50bc2907d"],
Cell[8066, 242, 991, 28, 57, "Output",ExpressionUUID->"7d47d0f2-a4c1-46d2-9850-1a83158f260f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9094, 275, 778, 22, 45, "Input",ExpressionUUID->"5682d807-c337-40ff-8f9c-2523244cc874"],
Cell[9875, 299, 906, 25, 57, "Output",ExpressionUUID->"94336ab4-e504-4408-a13c-f317e3fd500c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10818, 329, 571, 13, 45, "Input",ExpressionUUID->"864a2fa1-37fb-4495-b9c3-313e662f5789"],
Cell[11392, 344, 13950, 338, 209, "Output",ExpressionUUID->"98ce8982-7820-4ce5-8054-e0d00ad09d5a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25379, 687, 259, 5, 28, "Input",ExpressionUUID->"c45c6fe6-14a4-4e47-aeab-268e6fb94f54"],
Cell[25641, 694, 826, 15, 32, "Output",ExpressionUUID->"3e287c49-3fb6-4d1c-be70-82eeb7286bb7"]
}, Open  ]],
Cell[26482, 712, 13985, 340, 374, "Input",ExpressionUUID->"179c749d-2c51-4270-a306-ad7b6c186ce3"],
Cell[40470, 1054, 1970, 29, 78, "Input",ExpressionUUID->"fc0433fc-583e-404b-abe5-dd3cd3ee478a"],
Cell[CellGroupData[{
Cell[42465, 1087, 217, 3, 28, "Input",ExpressionUUID->"cbda7c41-7bd2-4da8-95e2-389bab90cb7d"],
Cell[42685, 1092, 3894, 68, 35, "Output",ExpressionUUID->"2b47bdc4-d4d1-40ed-9455-8e8eea3f40e7"]
}, Open  ]],
Cell[46594, 1163, 197, 3, 28, "Input",ExpressionUUID->"9f992768-6c73-4a00-94b3-3d1b5d16c928"],
Cell[46794, 1168, 183, 3, 28, "Input",ExpressionUUID->"2e69b165-fc7b-4889-9617-30f6223e5129"],
Cell[46980, 1173, 266, 5, 28, "Input",ExpressionUUID->"89302117-ccba-4d5b-9b93-bbd03605d92e"],
Cell[CellGroupData[{
Cell[47271, 1182, 236, 4, 67, "Section",ExpressionUUID->"0cf4df76-ec6c-4e35-ab0d-8c17f6cf7ce3"],
Cell[CellGroupData[{
Cell[47532, 1190, 5655, 129, 171, "Text",ExpressionUUID->"906aa348-894a-4cc2-b4f8-c3dd85d58b3f"],
Cell[53190, 1321, 6005, 104, 606, "Output",ExpressionUUID->"76bc0bb5-6dfd-46d4-8a3b-4a2fa95b417b"]
}, Open  ]],
Cell[59210, 1428, 29941, 792, 1217, "Input",ExpressionUUID->"fabe394d-886e-4e06-af29-004c65373cc0"],
Cell[89154, 2222, 191, 4, 28, InheritFromParent,ExpressionUUID->"017f3003-587c-4128-9dfa-a98f961757ae"],
Cell[89348, 2228, 147, 3, 28, InheritFromParent,ExpressionUUID->"68f904c8-67e3-470c-bc9d-9be4a0cc78b1"],
Cell[89498, 2233, 286, 5, 28, "Input",ExpressionUUID->"7fab7d86-79c3-471d-a1e9-d6f7514bdf79"],
Cell[89787, 2240, 184, 3, 28, "Input",ExpressionUUID->"2dc46b58-e3e2-440a-a683-e0f536eefbe6"],
Cell[89974, 2245, 339, 7, 45, "Input",ExpressionUUID->"8380f6e4-0857-4dd7-83e5-800c7fc33345"],
Cell[CellGroupData[{
Cell[90338, 2256, 639, 15, 45, "Input",ExpressionUUID->"0423ee66-db1b-4624-88f5-445fd0c8c355"],
Cell[90980, 2273, 7413, 195, 157, "Output",ExpressionUUID->"6f17d72c-a2ac-48f3-ad3b-6fce405ca682"]
}, Open  ]],
Cell[98408, 2471, 232, 5, 28, "Input",ExpressionUUID->"ccfece34-d50d-4d09-ae20-3f23a4f7e30f"],
Cell[98643, 2478, 156, 3, 28, "Input",ExpressionUUID->"e9c7141d-d386-4558-a8ed-b704c733bb62"],
Cell[CellGroupData[{
Cell[98824, 2485, 524, 14, 45, "Input",ExpressionUUID->"9a7e05c1-cc45-4624-a597-f4d8695339b7"],
Cell[99351, 2501, 212, 4, 32, "Output",ExpressionUUID->"a1911639-ab50-4628-8162-86962b83aaa3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99600, 2510, 281, 6, 28, "Input",ExpressionUUID->"f03d4867-e7c4-466b-b8f7-eb4e76b0b0ac"],
Cell[99884, 2518, 178, 3, 32, "Output",ExpressionUUID->"a179ea74-ddbe-43a7-9d0d-fc7881c32a56"]
}, Open  ]],
Cell[100077, 2524, 177, 3, 28, "Input",ExpressionUUID->"5cd951fa-4887-44b0-a1d4-1326d5c2c3bc"],
Cell[CellGroupData[{
Cell[100279, 2531, 709, 16, 45, "Input",ExpressionUUID->"e9b14dbf-9151-4dad-99b0-c66e92339b98"],
Cell[100991, 2549, 7439, 196, 157, "Output",ExpressionUUID->"367977c9-7a56-4b73-8eac-18ac7a20119c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108467, 2750, 769, 19, 71, "Input",ExpressionUUID->"7c0abe8c-f6f1-4d28-a677-b72e72899746"],
Cell[109239, 2771, 1600, 46, 63, "Output",ExpressionUUID->"174601a9-1a38-4b1f-ae04-150e1ff098af"]
}, Open  ]],
Cell[110854, 2820, 349, 8, 45, "Input",ExpressionUUID->"f8940916-d9fd-452a-a520-58b3cbcb707d"],
Cell[CellGroupData[{
Cell[111228, 2832, 1138, 24, 45, "Input",ExpressionUUID->"62a6dcf5-a6d9-4be8-bcda-8aefc7c687b8"],
Cell[112369, 2858, 156, 2, 32, "Output",ExpressionUUID->"d415d771-55d3-4828-8641-201d29de4dee"]
}, Open  ]],
Cell[112540, 2863, 156, 3, 28, "Input",ExpressionUUID->"73d72f9e-f7b1-4dde-aa2a-8ba2529b13aa"],
Cell[112699, 2868, 196, 4, 28, "Input",ExpressionUUID->"8ade686a-b3cd-4972-86bd-3de725ae19fb"],
Cell[CellGroupData[{
Cell[112920, 2876, 396, 10, 45, "Input",ExpressionUUID->"4c691753-a2df-4bcb-84b9-61a0e01d55ce"],
Cell[113319, 2888, 273, 6, 32, "Output",ExpressionUUID->"7d7d3923-a303-4e3e-8f3d-533dc0847dfa"]
}, Open  ]],
Cell[113607, 2897, 156, 3, 28, "Input",ExpressionUUID->"1d5bea9c-1667-42f0-bca6-ae5562beb5d6"],
Cell[113766, 2902, 152, 3, 28, "Input",ExpressionUUID->"a7558299-cdd8-4e7d-891b-63c7ecee0920"],
Cell[CellGroupData[{
Cell[113943, 2909, 234, 5, 45, "Input",ExpressionUUID->"7a14765a-98be-416d-ab6f-46b6cdef85fd"],
Cell[114180, 2916, 235, 6, 32, "Output",ExpressionUUID->"e3be3052-40b8-4fb1-8cc6-7a3ff78fb571"]
}, Open  ]],
Cell[114430, 2925, 297, 7, 45, "Input",ExpressionUUID->"bab2faab-ea39-42df-b605-3de9d3dbbea6"],
Cell[114730, 2934, 337, 9, 28, "Input",ExpressionUUID->"701bbea7-03da-4a1e-8590-7f985e19db7a"],
Cell[CellGroupData[{
Cell[115092, 2947, 199, 4, 28, "Input",ExpressionUUID->"fe88ea12-d6a9-4391-b76f-0d00b15e0a6b"],
Cell[115294, 2953, 184, 3, 32, "Output",ExpressionUUID->"b0ce7f7b-030e-40b7-be7c-9e9b6d470cd1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[115515, 2961, 379, 10, 45, "Input",ExpressionUUID->"83e0b455-fb24-4097-af7c-2cd1f8980b36"],
Cell[115897, 2973, 348, 10, 34, "Output",ExpressionUUID->"1dcde798-b181-45ff-95ac-ff5a7dcaf76d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[116282, 2988, 252, 6, 45, "Input",ExpressionUUID->"7c5e1a78-f60c-4f94-b80b-9af50cea4128"],
Cell[116537, 2996, 209, 5, 55, "Output",ExpressionUUID->"b134c512-8baa-41b2-a7e8-3bcdcd49be54"]
}, Open  ]],
Cell[CellGroupData[{
Cell[116783, 3006, 373, 7, 28, "Input",ExpressionUUID->"3fddcee2-8ab8-4fe0-b6f7-7aae1c951a8f"],
Cell[117159, 3015, 387, 6, 32, "Output",ExpressionUUID->"f4bed250-b5e9-405e-a24f-257de48683cb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[117583, 3026, 271, 7, 28, "Input",ExpressionUUID->"7c328021-879a-4c1a-8c40-84ef24d80f30"],
Cell[117857, 3035, 229, 5, 55, "Output",ExpressionUUID->"88fe0aa4-3183-4a35-86e2-8324e4065633"]
}, Open  ]],
Cell[118101, 3043, 260, 5, 45, "Input",ExpressionUUID->"b5fe9c67-213f-4dc1-a4ae-44a354bffcb5"],
Cell[CellGroupData[{
Cell[118386, 3052, 211, 3, 45, "Input",ExpressionUUID->"fe181b7f-0a50-44ec-963b-adb1dffe0ce4"],
Cell[118600, 3057, 179, 3, 32, "Output",ExpressionUUID->"ede47baf-a7a7-4b32-ae22-1b91ac6b62f8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[118816, 3065, 270, 7, 45, "Input",ExpressionUUID->"2f1527c2-a842-4d41-aef2-e6a868639c8e"],
Cell[119089, 3074, 257, 4, 32, "Output",ExpressionUUID->"36601fea-f399-4953-a660-f677c56c56a7"]
}, Open  ]],
Cell[119361, 3081, 387, 10, 45, "Input",ExpressionUUID->"433af5dc-2564-48cf-983e-25e4a1ce5383"],
Cell[119751, 3093, 270, 6, 28, "Input",ExpressionUUID->"468e5fd6-1a19-4ba8-a704-2205bea876fe"],
Cell[CellGroupData[{
Cell[120046, 3103, 219, 4, 45, "Input",ExpressionUUID->"bab12d2a-168a-4e44-9b39-6017c2eb260f"],
Cell[120268, 3109, 464, 13, 32, "Output",ExpressionUUID->"c6edbdaa-f68b-4795-9e61-48a46263a156"]
}, Open  ]],
Cell[120747, 3125, 152, 3, 28, "Input",ExpressionUUID->"e6419d58-5ecd-4610-822a-4f1fa6f2942c"],
Cell[120902, 3130, 184, 3, 28, "Input",ExpressionUUID->"482d1bea-3271-4ebc-87d9-f587f8346297"],
Cell[121089, 3135, 156, 3, 28, "Input",ExpressionUUID->"aeb4514d-8470-4ca4-8cd7-9ff3cc1e3ae4"]
}, Open  ]]
}, Open  ]]
}
]
*)

